home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 3032.ZIP / RLIB20.ZIP / RL_ENCRY.PRG < prev    next >
Text File  |  1989-02-18  |  521b  |  21 lines

  1. * Function: ENCRYPTED
  2. * Author..: Richard Low
  3. * Syntax..: ENCRYPTED( <expC> )
  4. * Returns.: Encrypted version of exp(c)
  5.  
  6. FUNCTION ENCRYPTED
  7. PARAMETER p_string
  8. PRIVATE f_temp, f_length, f_x
  9.  
  10. f_temp   = ''
  11. f_length = LEN(p_string)
  12.  
  13. FOR f_x = 1 TO f_length
  14.    *-- to encrypt, take character, convert to ASCII value, then
  15.    *-- add 101 plus its position in the string to it, then convert
  16.    *-- back to a character
  17.    f_temp = f_temp + CHR( ASC(SUBSTR(p_string,f_x,1) ) + 101 + f_x)
  18. NEXT
  19.  
  20. RETURN (f_temp)
  21.